home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / HTTP File 212926172001.psc / test / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-06-17  |  8.5 KB  |  282 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form Form1 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "DL Test"
  6.    ClientHeight    =   3525
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   4935
  10.    Icon            =   "Form1.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   235
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   329
  17.    StartUpPosition =   3  'Windows Default
  18.    Begin VB.CommandButton Command4 
  19.       Caption         =   "Pause"
  20.       Height          =   735
  21.       Left            =   3720
  22.       TabIndex        =   15
  23.       Top             =   2280
  24.       Width           =   1215
  25.    End
  26.    Begin Project1.DownLoad dl1 
  27.       Left            =   4440
  28.       Top             =   0
  29.       _ExtentX        =   847
  30.       _ExtentY        =   847
  31.    End
  32.    Begin VB.CommandButton Command3 
  33.       Caption         =   "Resume"
  34.       Enabled         =   0   'False
  35.       Height          =   735
  36.       Left            =   2520
  37.       TabIndex        =   14
  38.       Top             =   2280
  39.       Width           =   1215
  40.    End
  41.    Begin VB.CommandButton Command2 
  42.       Caption         =   "Cancel"
  43.       Height          =   735
  44.       Left            =   1320
  45.       TabIndex        =   7
  46.       Top             =   2280
  47.       Width           =   1215
  48.    End
  49.    Begin MSComctlLib.ProgressBar ProgressBar1 
  50.       Height          =   255
  51.       Left            =   0
  52.       TabIndex        =   4
  53.       Top             =   1920
  54.       Width           =   4935
  55.       _ExtentX        =   8705
  56.       _ExtentY        =   450
  57.       _Version        =   393216
  58.       BorderStyle     =   1
  59.       Appearance      =   0
  60.       Scrolling       =   1
  61.    End
  62.    Begin VB.CommandButton Command1 
  63.       Caption         =   "Start Download!"
  64.       Height          =   735
  65.       Left            =   0
  66.       TabIndex        =   0
  67.       Top             =   2280
  68.       Width           =   1335
  69.    End
  70.    Begin VB.Label Label2 
  71.       AutoSize        =   -1  'True
  72.       BackStyle       =   0  'Transparent
  73.       Caption         =   "ColdFusion244@aol.com"
  74.       Height          =   255
  75.       Left            =   1320
  76.       TabIndex        =   18
  77.       Top             =   3360
  78.       Width           =   1815
  79.    End
  80.    Begin VB.Label Label1 
  81.       AutoSize        =   -1  'True
  82.       BackStyle       =   0  'Transparent
  83.       Caption         =   "I can't get Resume to work correctly. If you can help, e-mail me."
  84.       Height          =   255
  85.       Left            =   120
  86.       TabIndex        =   17
  87.       Top             =   3120
  88.       Width           =   4575
  89.    End
  90.    Begin VB.Label lblResume 
  91.       AutoSize        =   -1  'True
  92.       BackStyle       =   0  'Transparent
  93.       Caption         =   "Resume Supported - "
  94.       Height          =   255
  95.       Left            =   0
  96.       TabIndex        =   16
  97.       Top             =   1680
  98.       Width           =   1575
  99.    End
  100.    Begin VB.Label lblconnected 
  101.       AutoSize        =   -1  'True
  102.       BackStyle       =   0  'Transparent
  103.       Caption         =   "Connection Present - "
  104.       Height          =   255
  105.       Left            =   0
  106.       TabIndex        =   13
  107.       Top             =   1200
  108.       Width           =   1575
  109.    End
  110.    Begin VB.Label lblState 
  111.       AutoSize        =   -1  'True
  112.       BackStyle       =   0  'Transparent
  113.       Caption         =   "Connection - "
  114.       Height          =   255
  115.       Left            =   2280
  116.       TabIndex        =   12
  117.       Top             =   960
  118.       Width           =   975
  119.    End
  120.    Begin VB.Label lblerr 
  121.       AutoSize        =   -1  'True
  122.       Caption         =   "Error Code - "
  123.       Height          =   195
  124.       Left            =   0
  125.       TabIndex        =   11
  126.       Top             =   1440
  127.       Width           =   885
  128.    End
  129.    Begin VB.Label lblTS 
  130.       AutoSize        =   -1  'True
  131.       Caption         =   "Total Size - "
  132.       Height          =   195
  133.       Left            =   0
  134.       TabIndex        =   10
  135.       Top             =   960
  136.       Width           =   840
  137.    End
  138.    Begin VB.Label lblRate 
  139.       AutoSize        =   -1  'True
  140.       Caption         =   "Transfer Rate - "
  141.       Height          =   195
  142.       Left            =   2280
  143.       TabIndex        =   9
  144.       Top             =   720
  145.       Width           =   1110
  146.    End
  147.    Begin VB.Label lblTime 
  148.       AutoSize        =   -1  'True
  149.       Caption         =   "Time Remaining - "
  150.       Height          =   195
  151.       Left            =   2280
  152.       TabIndex        =   8
  153.       Top             =   240
  154.       Width           =   1275
  155.    End
  156.    Begin VB.Label lblexists 
  157.       AutoSize        =   -1  'True
  158.       Caption         =   "File Exists - "
  159.       Height          =   195
  160.       Left            =   2280
  161.       TabIndex        =   6
  162.       Top             =   0
  163.       Width           =   825
  164.    End
  165.    Begin VB.Label lblpercent 
  166.       AutoSize        =   -1  'True
  167.       Caption         =   "Percent Downloaded - "
  168.       Height          =   195
  169.       Left            =   0
  170.       TabIndex        =   5
  171.       Top             =   720
  172.       Width           =   1635
  173.    End
  174.    Begin VB.Label lblStatus 
  175.       AutoSize        =   -1  'True
  176.       Caption         =   "Status - "
  177.       Height          =   195
  178.       Left            =   0
  179.       TabIndex        =   3
  180.       Top             =   480
  181.       Width           =   585
  182.    End
  183.    Begin VB.Label lblTotalBytes 
  184.       AutoSize        =   -1  'True
  185.       Caption         =   "Total Bytes - "
  186.       Height          =   195
  187.       Left            =   0
  188.       TabIndex        =   2
  189.       Top             =   240
  190.       Width           =   930
  191.    End
  192.    Begin VB.Label lblCBytes 
  193.       AutoSize        =   -1  'True
  194.       Caption         =   "Bytes Read - "
  195.       Height          =   195
  196.       Left            =   0
  197.       TabIndex        =   1
  198.       Top             =   0
  199.       Width           =   960
  200.    End
  201. Attribute VB_Name = "Form1"
  202. Attribute VB_GlobalNameSpace = False
  203. Attribute VB_Creatable = False
  204. Attribute VB_PredeclaredId = True
  205. Attribute VB_Exposed = False
  206. Private Sub Command1_Click()
  207. If dl1.CPause = True Or dl1.InDL = True Then Exit Sub
  208. dl1.Url = "http://www.aol.com/"
  209. 'use the download below for a longer better test
  210. 'dl1.Url = "http://download.microsoft.com/download/vstudio60ent/SP5/Wideband-VB/WIN98Me/EN-US/vs6sp5vb.exe"
  211. dl1.GetFileInformation
  212. If dl1.FileSize <= 0 Then
  213. Exit Sub
  214. lblconnected = "Connection Present - " & dl1.Connected
  215. ProgressBar1.Max = dl1.FileSize
  216. lblTotalBytes = "Total Bytes - " & dl1.FileSize
  217. lblTS = "Total Size - " & dl1.FileSize
  218. lblexists = "File Exists - " & dl1.FileExists
  219. lblResume = "Resume Supported - " & dl1.AResume
  220. dl1.DownLoad
  221. End If
  222. End Sub
  223. Private Sub Command2_Click()
  224. dl1.Cancel
  225. End Sub
  226. Private Sub Command3_Click()
  227. dl1.DLResume
  228. End Sub
  229. Private Sub Command4_Click()
  230. If dl1.CPause = True Then
  231. dl1.Pause False
  232. Command4.Caption = "Pause"
  233. dl1.Pause True
  234. Command4.Caption = "Unpause"
  235. End If
  236. End Sub
  237. Private Sub dl1_DLComplete()
  238. MsgBox "Done"
  239. End Sub
  240. Private Sub dl1_DLError(lpErrorDescription As String)
  241. MsgBox lpErrorDescription
  242. End Sub
  243. Private Sub dl1_StatusChange(lpStatus As String)
  244. lblStatus = "Status - " & lpStatus
  245. End Sub
  246. Private Sub dl1_Percent(lPercent As Long)
  247. lblpercent = "Percent Complete - " & lPercent
  248. End Sub
  249. Private Sub dl1_RecievedBytes(lnumBYTES As Long)
  250. ProgressBar1.Value = lnumBYTES
  251. lblCBytes = "Current Bytes Read - " & lnumBYTES
  252. End Sub
  253. Private Sub dl1_DLECode(lErrorCode As Long)
  254. Select Case lErrorCode
  255. Case 1
  256.     lblerr = "Error Code - [1] Uknown Error!"
  257. Case 2
  258.     lblerr = "Error Code - [2] File Doesn't Exist!"
  259. Case 3
  260.     lblerr = "Error Code - [3] Server Timed Out!"
  261. Case 4
  262.     lblerr = "Error Code - [4] Download Was Cancelled By User!"
  263. Case 5
  264.     lblerr = "Error Code - [5] No Connection Present!"
  265. Case 6
  266.     lblerr = "Error Code - [6] Internal Server Error!"
  267. Case 401
  268.     lblerr = "Error Code - [401] Unauthorized Access!"
  269. Case 403
  270.     lblerr = "Error Code - [403] Access Denied!"
  271. End Select
  272. End Sub
  273. Private Sub dl1_Rate(lpRate As String)
  274. lblRate = "Transfer Rate - " & lpRate
  275. End Sub
  276. Private Sub dl1_TimeLeft(lpTime As String)
  277. lblTime = "Time Remaining - " & lpTime
  278. End Sub
  279. Private Sub dl1_ConnectionState(strState As String)
  280. lblState = "Connection - " & strState
  281. End Sub
  282.